home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 1997 Winter - Disc 1
/
HYPERLIB-1997-Winter-CD1.ISO.7z
/
HYPERLIB-1997-Winter-CD1.ISO
/
オンラインウェア
/
PRG
/
Mac_F2C_1.3.2.sit
/
Mac F2C 1.3.2
/
Mac F2C Libraries
/
libI77 Sources
/
For_MPW.c
< prev
next >
Wrap
Text File
|
1995-11-29
|
1KB
|
58 lines
/**************************************************
* *
* Define some functions not already available *
* in the MPW environment. *
* Courtesty of Kris L. Jorgensen *
* *
**************************************************/
#include "stdio.h"
#ifdef powerc
int fileno( FILE *p )
{
return (int)(p->_file);
}
int isatty( int fn )
{
if ( fn == fileno(stdin) || fn == fileno(stdout) || fn == fileno(stderr) )
return 1;
else
return 0;
}
#endif
/*
Provide FORTRAN glue code for SpinCursor
And add call throughs to SpinCursor for the functions
used by Symantec, THINK, and CodeWarrior.
Note: under MPW, the parameter passed to DoMultiTask()
is interpreted as the counter increment, *NOT* as
the number of ticks to sleep!!!
*/
extern pascal void SpinCursor( short );
int spincursor_( long *count )
{
SpinCursor( (short) *count );
}
void DoMultiTask( long count )
{
SpinCursor( (short) count );
}
int domultitask_( long *count )
{
SpinCursor( (short) *count );
}